home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / nagscr / nag.pas < prev    next >
Pascal/Delphi Source File  |  1995-12-22  |  2KB  |  75 lines
  1. {*********************************************
  2. * TNagScreen unit for Delphi                 *
  3. * NAG.PAS 09/19/95                           *
  4. * Version 1.0a                               *
  5. * By: David M. Gentils                       *
  6. * Copyright: D & L Tech Services '95         *
  7. **********************************************}
  8. unit Nag;
  9.  
  10. interface
  11.  
  12. uses
  13.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  14.   Forms, Dialogs, frmNag;
  15.  
  16. type
  17.   TNagScreen = class(TComponent)
  18.   private
  19.     { Private declarations }
  20.     FProductName: string;
  21.     FVersion: string;
  22.     FCopyRight: string;
  23.     FComments: string;
  24.     FAuthor: string;
  25.     FAddress: string;
  26.     FCityStateZip: string;
  27.     FTitle: string;
  28.  
  29.   protected
  30.     { Protected declarations }
  31.   public
  32.     { Public declarations }
  33.     function Execute: Boolean;
  34.   published
  35.     { Published declarations }
  36.     property ProductName: string read FProductName write FProductName;
  37.     property Version: string read FVersion write FVersion;
  38.     property CopyRight: string read FCopyRight write FCopyRight;
  39.     property Comments: string read FComments write FComments;
  40.     property Author: string read FAuthor write FAuthor;
  41.     property Address: string read FAddress write FAddress;
  42.     property CityStateZip: string read FCityStateZip write FCityStateZip;
  43.     property Title: string read FTitle write FTitle;
  44.  
  45.   end;
  46.  
  47. procedure Register;
  48.  
  49. implementation
  50.  
  51. procedure Register;
  52. begin
  53.   RegisterComponents('Dialogs', [TNagScreen]);
  54. end;
  55.  
  56. function TNagScreen.Execute: Boolean;
  57. begin
  58.      FormNag := TFormNag.Create(Application);
  59.      try
  60.         FormNag.ProductName.Caption := ProductName;
  61.         FormNag.Caption := Title;
  62.         FormNag.Version.Caption := Version;
  63.         FormNag.CopyRight.Caption := CopyRight;
  64.         FormNag.Comments.Caption := Comments;
  65.         FormNag.Author.Caption := Author;
  66.         FormNag.Address.Caption := Address;
  67.         FormNag.CityStateZip.Caption := CityStateZip;
  68.         FormNag.ShowModal;
  69.      finally
  70.         FormNag.Free;
  71.      end;
  72. end;
  73.  
  74. end.
  75.